home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1996 / MacHack 1996.toast / Hacks / Hacks ’91 / MS Works Merge Enhancer / PREC.r < prev    next >
Encoding:
Text File  |  1991-06-20  |  8.3 KB  |  119 lines  |  [TEXT/MPS ]
  1. type 'PREC' {
  2.     string;
  3. };
  4.  
  5. resource 'PREC' (103) {
  6.         "/jeffDict 50 dict def jeffDict begin "
  7.         "/pwid 502 def /marg 60 def /bmarg 30 def /newswid 144 def " 
  8.         "/addchwid 324 def /addchht 200 def /dueswid 162 def "
  9.         "/cLine 110 def /rshow {dup stringwidth pop neg 0 rmoveto show} def "
  10.         "/NOAS { gsave 60 700 translate /ch 48 def /lw 10 def /w1 lw 2 div def "
  11.         "/nf 5 sqrt 2 div 1 sub w1 mul def /oh ch lw sub def /f3 5 12 div oh mul def  "
  12.         "/f3n f3 neg def /ow f3 3 mul 2 div def /r ch w1 sub 8 sqrt 2 add div .3 add def "
  13.         "/2sqr 2 sqrt r mul def /2isqr 1 2 sqrt div r mul def "
  14.         "/sd ch lw add w1 add ow add nf sub nf sub def /angle 1 1 8 sqrt div atan def "
  15.         "sd r add r add w1 3 mul add 18 moveto /Helvetica-Bold  findfont 18 scalefont setfont "
  16.         "(New Orleans) show sd r add r add w1 3 mul add 0 moveto (Apple Society) show "
  17.         "-1 -5 moveto pwid 2 add 0 rlineto .1 setlinewidth stroke "
  18.         "/Helvetica findfont 9 scalefont setfont pwid -16 moveto rshow 0 -16 moveto "
  19.         "-0.09234 0.(1430 Tulane Avenue,  New Orleans,  LA 70112   Telephone \(504\) 588-5668)ashow "
  20.         "newpath 0 0 moveto 0 ch lineto sd r add r add w1 add 0 rlineto 0 ch neg rlineto "
  21.         "0 0 lineto clip lw setlinewidth newpath w1 0 moveto 0 ch rlineto nf neg 0 rmoveto "
  22.         "ch dup 2 div exch neg rlineto nf neg 0 rmoveto 0 ch rlineto stroke "
  23.         "newpath sd r sub w1 moveto sd r add r w1 add r 270 angle arc sd r add 2isqr 3 mul "
  24.         "r add w1 add r 180 angle add 0 arcn stroke sd 0 moveto ch dup 3 div neg exch rlineto "
  25.         "ch 2 div lw add ow 2 div add nf sub nf sub ch lineto ch 3 div ch neg rlineto "
  26.         "sd 0 lineto fill ch 2 div lw add ow 2 div add nf sub nf sub w1 moveto "
  27.         "f3n 0 f3n oh 0 oh rcurveto f3 0 f3 oh neg 0 oh neg rcurveto closepath "
  28.         "gsave fill grestore 1 setgray stroke sd w1 add w1 -3 div moveto "
  29.         "ch dup 3 div neg exch w1 3 div add rlineto nf dup add neg nf rmoveto "
  30.         "ch dup 3 div neg exch neg lw -3 div add rlineto ch 2 div lw add ow add w1 add "
  31.         "nf sub nf sub w1 3 mul moveto ch 2 div 0 rlineto stroke grestore /vpos 670 def} def "
  32.         "/newline {/vpos vpos voff sub def hoff vpos moveto} def "
  33.         "/cprint {dup () ne {newline show} {pop} ifelse } def "
  34.         "/student {/Helvetica findfont 9 scalefont setfont /hoff marg def /voff 9 def "
  35.         "newline show cprint newline (Tulane University School of Medicine) show} def "
  36.         "/Address {/Helvetica findfont 9 scalefont setfont /hoff marg def /voff 9 def "
  37.         "newline show cprint cprint cprint newline show (,) show 4 0 rmoveto "
  38.         "show 8 0 rmoveto show} def "
  39.         "/addBox {gsave marg bmarg translate 72 addchht 36 sub moveto 0.13015 0. 32 0.01301 0. "
  40.         "(\\(If there are errors, please write the correct)awidthshow 84 addchht 46 sub moveto "
  41.         "-0.01344 0.(information below and return this slip\\))ashow 87 addchht 15 sub moveto "
  42.         "/Helvetica-BoldOblique findfont 9 scalefont setfont 3.02810 0. 32 0.30281 0. "
  43.         "(Member's Name and Address)awidthshow 0 0 moveto addchwid 0 lineto addchwid "
  44.         "addchht lineto 0 addchht lineto 0 0 lineto closepath stroke -1 264 bmarg sub "
  45.         "moveto pwid 2 add 0 rlineto 0 setlinewidth stroke /Helvetica findfont 9 scalefont "
  46.         "setfont /hoff 24 def /voff -10 def /vpos -4 def newline} def /studAdd {addBox  "
  47.         "(Tulane University School of Medicine) show cprint newline show grestore} def "
  48.         "/addch {addBox show (,) show 4 0 rmoveto show 8 0 rmoveto show cprint cprint "
  49.         "cprint newline show grestore} def "
  50.         "/theAmt {newline -0.03749 0. (that you owe $)ashow show (.00) show} def "
  51.         "/noBucks {newline -0.03749 0. (that you are fully paid.)ashow pop} def "
  52.         "/cprint {dup () ne {newline show} {pop} ifelse } def "
  53.         "/dues {gsave marg pwid add dueswid sub bmarg translate 0 0 moveto dueswid 0 lineto "
  54.         "dueswid addchht lineto 0 addchht lineto 0 0 lineto closepath stroke /hoff 12 def "
  55.         "/voff 10 def /vpos addchht 27 sub def hoff 9 add addchht 15 sub moveto "
  56.         "/Helvetica-BoldOblique findfont 9 scalefont setfont "
  57.         "3.57604 0. 32 0.35760 0.(Annual Dues Information)awidthshow "
  58.         "newline /Helvetica findfont 9 scalefont setfont "
  59.         "1.20697 0. 32 0.12069 0.(For your )awidthshow /Helvetica-BoldOblique findfont "
  60.         "9 scalefont setfont 3.01406 0. 32 0.30140 0.(Membership Dues)awidthshow "
  61.         "/Helvetica findfont 9 scalefont setfont  1.12243 0. 32 0.11224 0.( the)awidthshow "
  62.         "newline 1.43783 0. 32 0.14378 0.(Society's Records currently show)awidthshow "
  63.         "dup (0) eq {noBucks} {theAmt} ifelse /vpos vpos 15 sub def newline "
  64.         "2.30361 0. 32 0.23036 0.(Please make your check out to)awidthshow "
  65.         "/Helvetica-BoldOblique findfont 9 scalefont setfont newline 0.10295 0.(NOAS)ashow "
  66.         "/Helvetica findfont 9 scalefont setfont  0.18203 0. 32 0.01820 0. "
  67.         "( and Mail with this slip to:)awidthshow /vpos -4 def /voff -10 def newline "
  68.         "-0.07495 0.(New Orleans, LA 70112.)ashow newline -0.06195 0. "
  69.         "(Box 4,  1430 Tulane Avenue)ashow newline (Tulane University Medical School)show "
  70.         "newline 0.16540 0. 32 0.01654 0.(New Orleans Apple Society)awidthshow newline "
  71.         "0.22415 0. 32 0.02241 0.(The Secretary)awidthshow grestore } def "
  72.         "/myText1 {gsave marg 580 translate 9 myLine /Helvetica findfont 10 scalefont "
  73.         "setfont 1.42181 0. 32 0.14218 0. (The NOAS cordially invites you to the ) "
  74.         "awidthshow /Helvetica-BoldOblique findfont 10 scalefont setfont 2.60391 0. "
  75.         "32 0.26039 0.(Monthly Case Conference)awidthshow /Helvetica findfont 10 "
  76.         "scalefont setfont 1.35131 0. 32 0.13513 0.( to be held in the Mayan Room \\(Room) "
  77.         "awidthshow 22 myLine 2.05413 0. 32 0.20541 0.(7704\\), located on the 7) "
  78.         "awidthshow 1 3 rmoveto /Helvetica findfont 9 scalefont setfont 0.36393 0. "
  79.         "(th)ashow -1 -3 rmoveto /Helvetica findfont 10 scalefont setfont 1.68701 0. "
  80.         "32 0.16870 0.( Floor, Tulane University Medical Center Hospital. "
  81.         "There is a buffet of \"Poboy\")awidthshow 34 myLine 0.15289 0. 32 0.01528 0. "
  82.         "(sandwiches, beer, soft drinks, and desserts prior to the conference for "
  83.         "your enjoyment.)awidthshow grestore} def /myLine {0 exch neg moveto} def "
  84.         "/dearDR {gsave marg 600 translate 9 myLine /Helvetica findfont 10 "
  85.         "scalefont setfont (Dear ) show show (;) show grestore} def "
  86.         "/schedule {marg 525 translate /vpos 0 def 0 vpos moveto "
  87.         "/Helvetica-Bold findfont 10 scalefont setfont (Schedule for )show show "
  88.         "/Helvetica findfont 10 scalefont setfont /vpos vpos 18 sub def cLine vpos moveto "
  89.         "(6:30 PM)rshow 5 0 rmoveto (Buffet served)show /vpos vpos 11 sub def  "
  90.         "cLine vpos moveto (7:00 PM)rshow 5 0 rmoveto (Presentation of Cases)show  "
  91.         "/vpos vpos 11 sub def cLine vpos moveto  (9:00 PM)rshow 5 0 rmoveto "
  92.         "(Adjournment)show  /vpos vpos 20 sub def} def "
  93.         "/sponsor {/Helvetica-Bold findfont 10 scalefont setfont cLine vpos moveto "
  94.         "(Educational Sponsor:)rshow 5 0 rmoveto /Helvetica findfont 10 scalefont setfont "
  95.         "show /vpos vpos 10 sub def /Helvetica-Bold findfont 10 scalefont setfont cLine "
  96.         "vpos moveto (Moderator:)rshow 5 0 rmoveto /Helvetica findfont 10 scalefont "
  97.         "setfont show /vpos vpos 18 sub def} def "
  98.         "/case {cLine vpos moveto /Helvetica-Bold findfont 10 scalefont setfont "
  99.         "(Topic:)rshow /Helvetica findfont 10 scalefont setfont 5 0 rmoveto show "
  100.         "/vpos vpos 10 sub def cLine vpos moveto /Helvetica-Bold findfont 10 scalefont "
  101.         "setfont (Presentor:)rshow /Helvetica findfont 10 scalefont setfont 5 0 "
  102.         "rmoveto show /vpos vpos 12 sub def} def "
  103.         "/signed {/vpos vpos 8 sub def 0 vpos moveto "
  104.         "(We appreciate your continued support of this highly enjoyable and informative meeting.) "
  105.         "show /vpos vpos 20 sub def 250 vpos moveto (Sincerely,) show /vpos vpos 50 sub def "
  106.         "250 vpos moveto (Jeff E Mandel MD MS) show /vpos vpos 11 sub def 250 vpos "
  107.         "moveto (Head Hacker) show} def "
  108.         "/CME {gsave marg pwid add dueswid sub bmarg translate 0  0 moveto  dueswid "
  109.         "0 lineto dueswid addchht lineto 0 addchht lineto 0 0 lineto closepath stroke "
  110.         "/Helvetica-BoldOblique findfont 10 scalefont setfont dueswid 2 div addchht 2 "
  111.         "div moveto (CME Credit of Two Hours) dup stringwidth pop neg 2 div 0 rmoveto "
  112.         "show grestore} def "
  113.         "/CRNA {/vpos vpos 8 sub def 0 vpos moveto /Helvetica findfont 10 scalefont "
  114.         "setfont 0.52627 0. 32 0.05262 0.(We welcome your participation. You will receive "
  115.         "2 hours of Continuing Education Credit for attendance. Please)awidthshow /vpos "
  116.         "vpos 11 sub def 0 vpos moveto -0.01049 0.(circulate this announcement to any "
  117.         "recent CRNA additions to your staff.)ashow /vpos vpos 10 sub def} def end"
  118. };
  119.